;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 7/21/2009
;;;		   EDITED: 7/21/2009
;;;
(defun c:incr3 ()
  (setq myincr (uint 1 "" "Value to change all 3-digit elevation labels by" myincr))
  (setq cnt 0)
  (setq ###ss (ssget "X" '((1 . "###"))))
  (while (< cnt (sslength ###ss))
    (setq this_name (entget (ssname ###ss cnt))
          this this_name
          this (subst (cons 1 (itoa (+ myincr (atoi (cdr (assoc 1 this))))))(assoc 1 this) this)
          cnt (1+ cnt)
    )
    (entmod this)
  )
)